home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / hellbbs / scripts / level.scr < prev    next >
Encoding:
Text File  |  1996-03-27  |  697 b   |  32 lines
  1. cls
  2. textcolor 2
  3. print "User-check 0.0 (c) by TMC, this is a HELL'S BBS script..."
  4. print
  5. textcolor 3
  6. print text(150) [ individual language text, found in TEXTS.BBS
  7. textcolor functioncolor [ functioncolor is an var, set in HELL'S.INF
  8. print
  9. c=0
  10. cl=chr(13)+chr(10)
  11. le="Request for higher level from "+user+cl+cl
  12. userget user,"LEVEL",a
  13. le=le+"Old level: "+a+cl
  14. userget user,"DOWNLOADED",a
  15. le=le+"Downloaded: "+a+cl
  16. userget user,"UPLOADED",a
  17. le=le+"Uploaded: "+a+cl+cl
  18.  
  19. c=151
  20. repeat
  21.  input text(c)+" ",a,20
  22.  le=le+text(c)+" "+a+cl
  23.  inc c
  24. until c=159
  25. mail user,"SYSOP",le,"Request for new level"
  26. cls
  27. print text(c)
  28. a=decide(100)
  29. command 206
  30. cls
  31. print text(160)
  32. a=decide(100)